home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / AMORT1.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  714 b   |  39 lines
  1. PROGRAM amortization_table;
  2.  
  3. VAR month : 1..12;
  4.     starting_month : 1..12;
  5.     balance : REAL;
  6.  
  7. PROCEDURE initialize_data;
  8. BEGIN
  9.   balance := 2500.0;
  10.   starting_month := 5;
  11. END;
  12.  
  13. PROCEDURE print_annual_header;
  14. BEGIN
  15.   WRITELN('Annual header');
  16. END;
  17.  
  18. PROCEDURE calculate_and_print;
  19. BEGIN
  20.   balance := balance - 100.0;
  21.   WRITELN('The balance is ',balance:8:2,' month ',month:3);
  22. END;
  23.  
  24. PROCEDURE print_annual_summary;
  25. BEGIN
  26. END;
  27.  
  28. BEGIN
  29.   initialize_data;
  30.   REPEAT
  31.     print_annual_header;
  32.     FOR month := starting_month TO 12 DO
  33.     BEGIN
  34.       calculate_and_print;
  35.     END;
  36.     print_annual_summary;
  37.     starting_month := 1;
  38.   UNTIL balance <= 0.0;
  39. END. (* of main program *)